home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v8n04.arc / GETFKEY.BAS < prev    next >
BASIC Source File  |  1989-01-31  |  258b  |  14 lines

  1. Table$ = ";<=>?@ABCDTUVWXYZ[\]^_`abcdefghijklmnopq"
  2.  
  3. DEF FnGetFKey%
  4.   Code% = 0
  5.   DO
  6.     K$ = INKEY$
  7.     IF LEN(K$) = 2 THEN
  8.       K$ = RIGHT$(K$, 1)
  9.       Code% = INSTR(Table$, K$)
  10.     END IF
  11.   LOOP WHILE Code% = 0
  12.   FnGetFKey% = Code%
  13. END DEF
  14.